home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed35.d64 / unit d-14 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  188 lines
  1. 1 GOTO1000
  2. 10 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23:L=0:W=0:Z=0:C=0
  3. 15 PRINT"[147]                                        [146]";
  4. 20 PRINT"            [202]AMIE'S [211]PELLING            [146]";
  5. 25 PRINT"                                        [146]";
  6. 30 PRINT"                                        [146]";
  7. 35 PRINT"               [213]NIT [196]-14                [146]";
  8. 40 PRINT"                                        [146][159]":GOSUB300
  9. 45 REM THIS UNIT PREPARED BY BILL CUMBERLAND 1992:03:15
  10. 50 GOSUB700
  11. 55 GOSUB 600
  12. 60 GOTO1000
  13. 200 PRINT"[147][159]              [215][207][210][196][160][204][201][211][212]                 [146]"
  14. 205 PRINT"   MAMMOTH        ELECT    REPTILE
  15. 210 [153]"   NOMINATE       BALLOT   EXTINCT
  16. 215 PRINT"   PREHISTORIC    SWAMP    POLLS
  17. 220 [153]"   DINOSAUR       WALRUS   CANIDIATE
  18. 225 PRINT"   PLATFORM       MANATEE  MAMMAL
  19. 230 [153]"   ORGANIZATION   VOTING   PORPOISE
  20. 232 PRINT"   POLITICAL      REGISTER
  21. 235 [142]
  22. 240 [141]400
  23. 245 [153]"LIST* (null)HAT WORD MATCHES THIS CLUE?"
  24. 250 [141]401:[141]560
  25. 255 [142]
  26. 270 [153]"               LEN(null)(null)(null)VALLEN(null)!                 WAIT":[141]500:[142]
  27. 280 [143] IF X=1THENGOSUB290
  28. 282 [153]"DEF            (null)HOOPS!  (null)O!                WAIT":X[178]X[170]1:[141]530:[141]402
  29. 284 [153]"ONON            (null)RY AGAIN                   PRINT":[141]402:[141]560
  30. 286 [153]"ONON                                        ONON"
  31. 288 [153]"ONON                                        ONON":[142]
  32. 290 [153]"DEFONON>> (null)HE CORRECT WORD IS........       ":[141]530
  33. 295 [153]"                                    ONPRINT":[142]
  34. 300 [141]402:[141]560
  35. 305 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null)CLOSETO CONTINUE       WAITLIST"
  36. 310 [161]R$:[139]R$[179][177][199](32)[167]310
  37. 315 [142]
  38. 400 [129]T[178]1[164] 500:[130]:[142]
  39. 401 [129]T[178]1[164] 1000:[130]:[142]
  40. 402 [129]T[178]1[164] 2000:[130]:[142]
  41. 403 [129]T[178]1[164] 3000:[130]:[142]
  42. 404 [129]T[178]1[164] 4000:[130]:[142]
  43. 405 [129]T[178]1[164] 5000:[130]:[142]
  44. 500 [143] <YES> SOUND
  45. 505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  46. 510 [151]54296,15:[151]54277,42:[151]54278,250
  47. 515 [151]54276,23:[151]54273,23:[151]54272,191
  48. 520 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  49. 525 [151]54296,0:[142]
  50. 530 [143] <NO> SOUND
  51. 535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  52. 540 [151]54296,15:[151]54277,18:[151]54278,242
  53. 545 [151]54276,33:[151]54273,4:[151]54272,48
  54. 550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  55. 555 [151]54296,0:[142]
  56. 560 [143] <BLIP> SOUND
  57. 565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  58. 570 [151]54296,8:[151]54277,42:[151]54278,250
  59. 575 [151]54276,23:[151]54273,23:[151]54272,191
  60. 580 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  61. 585 [151]54296,0:[142]
  62. 600 [153]"LOADPRINT     (null)HERE ARE TEN QUESTIONS":[141]401
  63. 610 [153]"     (null)OUR PERFORMANCE WILL BE SCORED.":[141]401
  64. 620 [141]300
  65. 630 [153]"LOAD AND AWAY WE GO .........":[141]402:[141]500:[141]401
  66. 640 [142]
  67. 700 [153]"OPENLOAD               CHR$AME (null)LAN                WAIT
  68. 705 PRINT"     [217]OUR TASK IS TO UNSCRAMBLE THE
  69. 710 [153]"     MYSTERY WORD.
  70. 718 PRINT""
  71. 755 GOSUB402:GOSUB300
  72. 760 RETURN
  73. 1000 REM # 1
  74. 1005 GOSUB200:GOSUB240:X=0
  75. 1010 PRINT"[153]  .. SIGN UP TO VOTE      [158]"
  76. 1015 INPUT A$
  77. 1020 IFA$="REGISTER"THEN GOSUB270:GOSUB402:GOTO1035
  78. 1025 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1035
  79. 1030 Z=Z+1:GOSUB280:GOTO1015
  80. 1035 PRINT"               REGISTER"
  81. 1040 GOSUB300
  82. 1049 :
  83. 1050 REM # 2
  84. 1055 GOSUB200:GOSUB240:X=0
  85. 1060 PRINT"[153]  .. SELECT BY VOTING  [158]"
  86. 1065 INPUT A$
  87. 1070 IFA$="ELECT"THEN GOSUB270:GOSUB402:GOTO1085
  88. 1075 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1085
  89. 1080 Z=Z+1:GOSUB280:GOTO1065
  90. 1085 PRINT"                ELECT   "
  91. 1090 GOSUB300
  92. 1100 REM # 3
  93. 1105 GOSUB200:GOSUB240:X=0
  94. 1110 PRINT"[153]  .. A PERSON RUNNING FOR OFFICE [158]"
  95. 1115 INPUT A$
  96. 1120 IFA$="CANDIDATE"THEN GOSUB270:GOSUB402:GOTO1135
  97. 1125 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1135
  98. 1130 Z=Z+1:GOSUB280:GOTO1115
  99. 1135 PRINT"               CANDIDATE "
  100. 1140 GOSUB300
  101. 1149 :
  102. 1150 REM # 4
  103. 1155 GOSUB200:GOSUB240:X=0
  104. 1160 PRINT"[153]  ... PREDICT HOW PEOPLE WILL VOTE [158]"
  105. 1165 INPUT A$
  106. 1170 IFA$="POLLS"THEN GOSUB270:GOSUB402:GOTO1185
  107. 1175 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1185
  108. 1180 Z=Z+1:GOSUB280:GOTO1165
  109. 1185 PRINT"                 POLLS     "
  110. 1190 GOSUB300
  111. 1200 REM # 5
  112. 1205 GOSUB200:GOSUB240:X=0
  113. 1210 PRINT"[153]  ... NAME A PERSON TO RUN FOR OFFICE [158]"
  114. 1215 INPUT A$
  115. 1220 IFA$="NOMINATE"THEN GOSUB270:GOSUB402:GOTO1235
  116. 1225 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1235
  117. 1230 Z=Z+1:GOSUB280:GOTO1215
  118. 1235 PRINT"              NOMINATE  "
  119. 1240 GOSUB300
  120. 1249 :
  121. 1250 REM # 6
  122. 1255 GOSUB200:GOSUB240:X=0
  123. 1260 PRINT"[153]  ... RELATED TO GOVERNMENT  [158]"
  124. 1265 INPUT A$
  125. 1270 IFA$="POLITICAL"THEN GOSUB270:GOSUB402:GOTO1285
  126. 1275 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1285
  127. 1280 Z=Z+1:GOSUB280:GOTO1265
  128. 1285 PRINT"              POLITICAL  "
  129. 1290 GOSUB300
  130. 1300 REM # 7
  131. 1305 GOSUB200:GOSUB240:X=0
  132. 1310 PRINT"[153]   ... THE VOTING FORM    [158]"
  133. 1315 INPUT A$
  134. 1320 IFA$="BALLOT"THEN GOSUB270:GOSUB402:GOTO1335
  135. 1325 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1335
  136. 1330 Z=Z+1:GOSUB280:GOTO1315
  137. 1335 PRINT"                BALLOT       "
  138. 1340 GOSUB300
  139. 1349 :
  140. 1350 REM # 8
  141. 1355 GOSUB200:GOSUB240:X=0
  142. 1360 PRINT"[153]  ... CASTING A VOTE     [158]"
  143. 1365 INPUT A$
  144. 1370 IFA$="VOTING"THEN GOSUB270:GOSUB402:GOTO1385
  145. 1375 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1385
  146. 1380 Z=Z+1:GOSUB280:GOTO1365
  147. 1385 PRINT"               VOTING  "
  148. 1390 GOSUB300
  149. 1400 REM # 9
  150. 1405 GOSUB200:GOSUB240:X=0
  151. 1410 PRINT"[153]  ... POLICIES OF A CANDIDATE      [158]"
  152. 1415 INPUT A$
  153. 1420 IFA$="PLATFORM"THEN GOSUB270:GOSUB402:GOTO1435
  154. 1425 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1435
  155. 1430 Z=Z+1:GOSUB280:GOTO1415
  156. 1435 PRINT"               PLATFORM  "
  157. 1440 GOSUB300
  158. 1449 :
  159. 1450 REM # 10
  160. 1455 GOSUB200:GOSUB240:X=0
  161. 1460 PRINT"[153]   ... GROUP OF PEOPLE WORKING TOGETHER[158]"
  162. 1465 INPUT A$
  163. 1470 IFA$="ORGANIZATION"THEN GOSUB270:GOSUB402:GOTO1485
  164. 1475 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1485
  165. 1480 Z=Z+1:GOSUB280:GOTO1465
  166. 1485 PRINT"            ORGANIZATION  "
  167. 1490 GOSUB300
  168. 1600 REM SCORE BOARD
  169. 1605 K=Z-W:C=10-Z
  170. 1610 PRINT"[147][200]ERE IS YOUR SCORE FOR [213]NIT [196]-14:"
  171. 1615 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [153][198][201][210][211][212] [212][210][217]  "C
  172. 1620 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [158][211][197][195][207][206][196] [212][210][217] "K
  173. 1625 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212][160][207][206][160][150][212][200][201][210][196] [212][210][217]  "W
  174. 1630 PRINT"":GOSUB403:GOSUB300
  175. 1650 :
  176. 1655 PRINT"[147][158][217]OU NOW HAVE A CHOICE:
  177. 1660 [153]"(null)RESS  R WAIT TO REPEAT THIS UNIT
  178. 1665 PRINT"[208]RESS  M [146] TO RETURN TO THE DISK MENU
  179. 1670 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[137]1670
  180. 1675 [139]R$[178]"R"[167][140]:[137]10
  181. 1680 [153]"LOAD(null)ETURNING TO THE DISK (null)VAL(null)(null)
  182. 1685 LOAD"MENU",8
  183. 1690 RUN
  184. 1695 END
  185. 1700 REM DESIGNED BY BILL CUMBERLAND 92:01:13
  186. 1710 REM FOR MY GRANDSON, JAMIE.
  187. 1720 REM SPELLING D - MODERN CURRICULUM PRESS
  188.